home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / intrfc55.arc / GLOBALS.PAS < prev    next >
Pascal/Delphi Source File  |  1990-02-25  |  961b  |  43 lines
  1. unit globals;
  2.  
  3. interface
  4.  
  5. type
  6.   word_array_ptr = ^word_array;
  7.   word_array=array[0..32760] of word;
  8.   byte_array_ptr = ^byte_array;
  9.   byte_array=array[0..65520] of byte;
  10.   option = (do_header,do_name_list,do_implementation,do_entry_pts,
  11.              do_code_blocks,do_const_blocks,
  12.              do_var_blocks,do_unit_blocks,
  13.              do_code,do_const,do_reloc,do_vmt,do_locals);
  14. var
  15.   buffer,tpl_buffer : byte_array_ptr;
  16.   code_buf,const_buf,reloc_buf,vmt_buf : byte_array_ptr;
  17.   code_ofs,const_ofs,reloc_ofs,vmt_ofs : longint;
  18.   tpl_size : longint;
  19.   f:file;
  20.   got_tpl : boolean;
  21.   just_tpl : pointer;
  22.   unit_size : word;
  23.   unitname,uses_path : string;
  24.   indentation : word;
  25.  
  26. const
  27.   active_options : set of option = [do_name_list];
  28.   tab = ^I;
  29.   oneindent = '  ';
  30.  
  31. procedure indent;
  32.  
  33. implementation
  34.  
  35. procedure indent;
  36. var
  37.   count : word;
  38. begin
  39.   for count := 1 to indentation do
  40.     write(oneindent);
  41. end;
  42.  
  43. end.